	#!/usr/bin/perl 
	# error.pl 
	use warnings;
	use strict;
	
	use ErrorClass;
	
	# generate an error
	unless (open IN, "no.such.file") {
	   my $error = new ErrorClass;
	
	   print "Error object ", ref $error, "\n";
	   print "\thas number ", $error->number, "\n";
	   print "\thas message '", $error->message, "'\n";
	
	   print "It's not there! \n" if $error->isa("ErrorClass::ENOENT");
	}
